home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / megatrek.zip / DAMAGE.ASC < prev    next >
Text File  |  1982-07-03  |  384b  |  12 lines
  1. 50000 J=0:PRINT:FOR I=1 TO 12
  2. 50010 IF D4(I)<=0 THEN 50060
  3. 50020 IF J<>0 THEN 50050
  4. 50030 PRINT"     DEVICE";SPC(12);"-REPAIR TIMES-"
  5. 50040 PRINT SPC(21);"IN FLIGHT    DOCKED":J=1
  6. 50050 PRINT"  ";D$(I);TAB(23);FNS(D4(I));TAB(33);FNS(D3*D4(I))
  7. 50060 NEXT I
  8. 50070 IF J=0 THEN PRINT" - ALL DEVICES FUNCTIONAL -"
  9. 50080 GOTO 70
  10. 60000 REM end overlay
  11. B(33);FNS(D3*D4(I))
  12. 50060 N